home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / r / real_3d / real3dv3.3b.dms / real3dv3.3b.adf / RPL.LZH / RPL / spiral.rpl < prev   
Text File  |  1995-04-18  |  668b  |  33 lines
  1.  
  2. ( Example which creates spiral by using given number of spheres
  3.  
  4. : CrSpiral 
  5.     PARAM
  6.         VARIABLE iCnt ( number of spheres
  7.         FVARIABLE fSize ( size for spheres
  8.     ENDPARAM
  9.  
  10.     iLOCK_EXCL O_LOCK
  11.     iCnt FETCH 0 DO
  12.     ( position for the sphere to be created
  13.         I 0.1 F* SIN I 100 F/ F*
  14.         I 0.1 F* COS I 100 F/ F*
  15.         I 100 F/
  16.  
  17.     ( size of the sphere
  18.         fSize FFETCH 0     0  ( a )
  19.         0     fSize FFETCH 0   ( b )
  20.         0     0     fSize FFETCH ( c )
  21.  
  22.     ( other attributes
  23.         255 255 255 0  ( RGBA )
  24.         "ellipsoid" 
  25.         0 ( flags )
  26.         "CEND"
  27.         C_ELLIPSOID DROP
  28.     LOOP
  29.     iLOCK_REMOVE O_LOCK
  30. ;
  31.  
  32. CrSpiral 
  33.